#+TITLE: Fonts
#+AUTHOR: Zelphir Kaltstahl
#+STARTUP: content
#+STARTUP: indent
#+STARTUP: align
#+STARTUP: inlineimages
#+STARTUP: hideblocks
#+STARTUP: entitiesplain
#+STARTUP: nologdone
#+STARTUP: nologreschedule
#+STARTUP: nologredeadline
#+STARTUP: nologrefile
#+TODO: TODO INPROGRESS | DONE CANCELLED
#+DATE: [2023-09-28 Thu]
#+LANGUAGE: English
#+PRIORITIES: A E E
#+KEYWORDS: dired config font face mode buffer-face-mode


* Default font

** way 1

#+begin_src elisp
(set-frame-font (font-spec :family "DejaVu Sans Mono" :weight 'normal :height 110))
(set-face-attribute 'default nil :height 110)
#+end_src

** emacsclient compatible way

#+begin_src elisp
(add-to-list 'default-frame-alist
             '(font . "-UKWN-Martian Mono-normal-normal-normal-*-*-100-*-*-m-0-iso10646-1"))
#+end_src

* dired specific font

#+begin_src elisp
(defun use-dired-font ()
  "Switch the current buffer to a specific font."
  (setq buffer-face-mode-face
        '(:family "DejaVu Sans Mono"
          :height 110
          :width semi-condensed
          :weight normal))
  (buffer-face-mode))

(add-hook 'dired-mode-hook 'use-dired-font)
#+end_src

* Greek letters specific font

#+begin_src elisp
(set-fontset-font t
                  'greek
                  (font-spec :family "DejaVu Sans Mono"
                             :weight 'bold))
#+end_src
